home *** CD-ROM | disk | FTP | other *** search
/ F1 Licenseware / F1 Licenseware - Volume 1.iso / disks / 050a.dms / 050a.adf / EXAMPLE_PROGRAMS / example01.AMOS / example01.amosSourceCode
AMOS Source Code  |  1992-02-26  |  2KB  |  63 lines
  1. '====================  
  2. 'EXAMPLE PROGRAM ONE   
  3. '====================
  4. '
  5. '      Note: these listings apply mainly to the original Amos package
  6. '      and not Amos Pro or Easy Amos,although most will work on any Amos.
  7. '
  8. '--------------------------------------------------------------------------- 
  9. 'This little program prints a message on a black screen and then waits 
  10. 'for any key to be pressed before returning the user back here, to the editor. 
  11. 'To RUN this program press F1 or click on RUN from the above menu. 
  12. 'To see the whole of this program listing press the down cursor key
  13. 'or click on the down arrow at the bottom right edge of this screen. 
  14. '----------------------------------------------------------------------------
  15. '
  16. '
  17. '
  18. Rem PAPER is the text background colour, try diffrent values between 0-15    
  19. '------------------------------------------------------------------------
  20.  
  21. Paper 0
  22.  
  23.  
  24. Rem Turn off the flashing text cursor.Put a ' or delete it to see the effect.  
  25. '----------------------------------------------------------------------------
  26.  
  27. Curs Off 
  28.  
  29.  
  30. Rem Hides the mouse pointer. 
  31. '--------------------------- 
  32.  
  33. Hide 
  34.  
  35.  
  36. Rem turn the whole screen to black, try different numbers for different colours.   
  37. '------------------------------------------------------------------------------- 
  38.  
  39. Cls 0
  40.  
  41.  
  42. Rem Print the message, try changing the text between the quotes. 
  43. '--------------------------------------------------------------- 
  44.  
  45. Print "Testing....Press a key when ready"
  46.  
  47.  
  48. Rem Wait here until the user presses a key,delete the line to see what happens.    
  49. '------------------------------------------------------------------------------
  50.  
  51. Wait Key 
  52.  
  53. '============================================================================= 
  54. Rem I could of easily made this program show you all the different CLS colours 
  55. Rem and paper colours etc. automatically, but I want you to get in there and 
  56. Rem dirty your hands. Mess around with this program until you feel you know  
  57. Rem EVERY command and what it does. It's the best way to learn, believe me!
  58. '==============================================================================
  59.  
  60. Rem return back to the Amos editor, not neccesary but nice and tidy. 
  61. '------------------------------------------------------------------- 
  62.  
  63. Edit